home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / US English / KaleidaGraph™-PPC / Examples folder / Macro Source / Smooth < prev    next >
Text File  |  1993-04-14  |  1KB  |  214 lines
  1. alpha     "Smooth:"
  2. ibase
  3. STOa 9
  4. ;
  5. FIX 6
  6. ;
  7. alpha     "Input Column"
  8. STOa 0
  9. 0e+00
  10. STO 00
  11. ;
  12. alpha     "Output Column"
  13. STOa 1
  14. 1
  15. STO 01
  16. ;
  17. alpha     "Window Size"
  18. STOa 2
  19. 5
  20. STO 02
  21. ;
  22. RCLa 9
  23. inpt 3
  24. ;
  25. RCL 00
  26. int
  27. STO 03
  28. 1000
  29.  /
  30. STO 10
  31. ;
  32. RCL 01
  33. int
  34. STO 04
  35. ;
  36. RCL 02
  37. 2
  38.  /
  39. int
  40. 2
  41.  *
  42. 1
  43.  +
  44. STO 02
  45. ;
  46. FIX 6
  47. ;
  48. XEQ 10
  49. ;
  50. XEQ 80
  51. ;
  52. STOP
  53. ;
  54. LBL 10
  55. size
  56. 1
  57.  -
  58. RCL 10
  59.  +
  60. STO 11
  61. ;
  62. LBL 90
  63. RCLi 11
  64. test 1
  65. GTO 91
  66. test 2
  67. GTO 91
  68. ;
  69. LBL 92
  70. RCLi 10
  71. test 1
  72. GTO 93
  73. test 2
  74. GTO 93
  75. ;
  76. RTN
  77. ;
  78. LBL 91
  79. 1
  80. SUB 11
  81. GTO 90
  82. ;
  83. LBL 93
  84. 1
  85. ADD 10
  86. GTO 92
  87. ;
  88. LBL 80
  89. ;
  90. RCL 11
  91. RCL 10
  92.  -
  93. 1.0000100017
  94.  +
  95. int
  96. STO 01
  97. ;
  98. RCL 10
  99. STO 20
  100. ;
  101. RCL 10
  102. int
  103. RCL 04
  104. 1000
  105.  /
  106.  +
  107. STO 19
  108. ;
  109. 0e+00
  110. RCL 01
  111. x <= y
  112. GTO 81
  113. ;
  114. 1.000000000000001e+308
  115. STO 23
  116. ;
  117. LBL 98
  118. ;
  119. RCL 20
  120. RCL 02
  121. 2
  122.  /
  123. int
  124.  -
  125. STO 21
  126. RCL 10
  127. int
  128. x > y
  129. GTO 95
  130. RCL 21
  131. RCL 02
  132. 1
  133.  -
  134.  +
  135. RCL 11
  136. x < y
  137. GTO 95
  138. RCL 02
  139. STO 09
  140. 0e+00
  141. STO 00
  142. STO 22
  143. ;
  144. LBL 68
  145. RCLi 21
  146. test 1
  147. GTO 94
  148. test 2
  149. GTO 94
  150. ADD 00
  151. 1
  152. ADD 22
  153. LBL 94
  154. 1
  155. ADD 21
  156. 0e+00
  157. DSE 09
  158. GTO 68
  159. ;
  160. 0e+00
  161. RCL 22
  162. x = y
  163. GTO 99
  164. ;
  165. RCL 02
  166. RCL 22
  167. x < y
  168. GTO 97
  169. ;
  170. RCL 00
  171. RCL 22
  172.  /
  173. STOi 19
  174. STO 23
  175. ;
  176. GTO 96
  177. ;
  178. LBL 99
  179. CLRi 19
  180. ;
  181. LBL 96
  182. 1
  183. ADD 20
  184. ADD 19
  185. ;
  186. 0e+00
  187. DSE 01
  188. GTO 98
  189. ;
  190. RTN
  191. ;
  192. LBL 81
  193. RTN
  194. ;
  195. LBL 95
  196. CLRi 19
  197. GTO 96
  198. ;
  199. LBL 97
  200. RCL 23
  201. RCL 00
  202. RCL 22
  203.  /
  204. x = y
  205. GTO 99
  206. STOi 19
  207. STO 23
  208. GTO 96
  209. ;
  210. alpha     "Version 1.1 - 5/11/89"
  211. alpha     "by Lonnie R. Abelbeck"
  212. alpha     "Modified - 4/14/93"
  213. alpha     "by W. T. Jones"
  214.